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QL. TIF 
Harvey Taylor 


To use a 1200 BAUD modem without a Modapter, construct a modem 
cable as listed below. The parts needed will include a DE? 
connector and a DR2S connector and your wire. 


QL (serial port 2) DES MODEM DRESS 
PIN NAME FIN NAME 

H GND — 7 Signal GND 
2 TXD ——— "i z TD 

= RXD e > 3 RD 

E No Connection 

S5 No Connection 

9 +12 vdc mone 20 DTR 

9 il vde A 4 TT? 


These connections were used with an Avatex 1200 BAUD modem. Fins 
6,7 & 8 on the U.S. GL are all tied to ground. 
This article came from the CATS Newsletter 


TELECOMMUNICATIONS ON THE GL 
Michael Mitchell 
(Reprinted from QZX) 


The Ql for all its power and versitility is limited in 
telecommunicating at 300 baud without a hardware link between 
the serial port and the modem. The following program which 
appeared in the Data Expansion or the Dallas/Fort Worth group 
will get you on line to a TNC or a telephone at 300 (or even 
1200) baud. 


i REMark 300/1200 baud terminal 

2 REMark MIKE TERM 

3 REMark Developed by 

4 REMark Michael Mitchell 

3 REMark attribution requested 

ó REMark Sinclainr/Timex User Group 
7 REMark Boston Computer Society 


100 WINDOW 465,204,6,0 

105 BORDER 1,0,7: LB=127 

110 CLS: FOKE 163976,255: CLORO 

120 FRINT#O,, "Choose Baud: H=1200, L= Boo 

130 IF INKEY$(-1)=="h"THEN BAUD 1200: ELSE BAUD 300 
140 CLSO#O: OPEN#S, SERB 

1 So PR I NTHO ,5 " FS=GU I T H " m ALT^Cz^C n 3 "n “G=BELL u 

160 REFEAT TERM 

170 TERMINAL: FPRINT#O,, "Exit?dy/n)" 


180 IF INKEY$(-1)--"Y" THEN EXIT term 

190 END REFterm 

200 CLOSE#S 

205 PFRINTHO,,"Re-run/Quit? (r/q)" 

210 IF INKEY$(-1)=="R" THEN RUN: ELSE STOP 
220 DEFine FROCedure terminal 

230 REFeat key loop 


240 a=CODE CINEEY$ (#5, 0) ) &&LE 
250 IF a=13 THEN FRINT 

260 IF a=7 THEN BEEF 2000,15 
270 IF231 THEN PRINT CHR$(a) 
280 b=CODE CINKEY$) 

290 IF b=248 THEN EXIT key. loop 
300 IF bz255 THEN b=0 

310 IF b=O THEN NEXT key. loop 
320 IF b=10 THEN b=13 

zO IF b=208 THEN b=7 


340 PRINTH#HS, CHR (b); 
350 END REFeat key loop 
S60 RETurn 

370 END DEFine terminal 


Save as MIKE TERM bas 


This program gets around a problem which the QL has in sending 
a CTRL C. MIKE TERM uses ALT CTRL C to send the CTRL C. See line 
300. 


After keying in the program, load and run it with the modem 
attached to ser2. Choose a data rate and then go on line. Now 
get the attention of the modem by starting any command with ATn 
if it is a Hayes type modem. With a TNC you just have to turn it 
on and you are ready to go. 


XOFY (QL PROGRAM) 
Al Feng 


Most backup and copy programs are designed to copy all or some 
of the file on one medium to another sequentially. This 
generally means that if you want to reorder the contents of a 
tape or disk when you are transfering files that you must begin 
and halt the procedure repeatedly as you add each file to the 
receiving medium. This is alnost more tedius than individually 
typing out each command. The following program will allow you to 
individually copy each file on selective basis from a screen 
menu. 


If you are a regular reader of the Nite-Times News, then you 
should already be familiar with both the HARDCOFY and PreVIEW 
programs that have been previously listed. This program is 
conceptually very similar, but presents the file directory in a 
tabulated format (the two previous programs can be updated with 
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screen format). 


you are using floppy disks, substitute "flp" for "mdv" in 
120. 


REMark XOFY [by Al Feng, March 1988 

fenetres 

drvé$="1":types="mdv":* MODE O: CLS#8 

PAPER 7:BORDER 1,4:CLS: INE O:AT 1,4:PRINT "COPY "y types; 

dryg” "s INE 1 

screen 

IF dev$=1 THEN at=drv$+1 

IF drv#=2 THEM at=drv$~—1 

AT 1,4:PRINT "COFY "“stypeSidrvés" "EINE 1 

INE 4:AT 1,33:PRINT "to "stypes$ra$;:PRINT" "z INK © 

INKH9, 3: CL49: PRINTH9,TO 4;"G PLATYPUS"/TO 5: "Software" 
INE#10, 3: CLIO: PRINT#iO\,,, " @ PLATYFUS Software" 

drvé=drvé—-1:PAPER#S, 7:CLSO#S:PRINT#S,,"C€ . 1 "ytypestidrv$; 
cm J 

drvé=drvé+2:PRINT#S, 55955 "1 O 1 "stypet&drvibg;" ": 

drvé=drvé—-1 

REFeat key 

akey=CODE CINKEY$) 

IF akey=27 THEN change 

IF akey>45 and akey<128 THEN EXIT key 

END REFeat key 

akeycakey-48 

IF akey=-2 THEN 

IF drv$-1 THEN drv$=drv$=1: GO TO 130 

END IF 

IF NOT akey THEN 

drvé=drvé+i:s GO TO 130 

ELSE 

STRIP 7s:sAàT 1,16:PFRINT " "SAT 1,1: INE S:FRINT" 

CüPYing:"::PRINT:type$;dnrv$;" "sdir$(akeyt1)3"AT 1,33: PRINT 
"to "stypeft;a$;" "sdiré(akey+1):INK O 

IF akeyzc THEN COPY types & drv$ & " " & dir#(akey+i) TO 
types & a$ &" " £& dirt$üiakeytl) 

BEEF 240,24:AT 1,0:PRINT " COPY "stypetsdrvibs;" "5; 

FRINT " M 

PAPER#?, S:CLS#9:FRINT#H9, "C COPY COMPLETED 3J"X"E "; 

dir$takeytli);" J" 

GO TO 200 

END IF 

DEFine FROCedure fenetres 

WINDOW#O, 458, 42, 31, 198:WINDOW#1, 458,226, 30,14: 

WINDOWEZ, 458, 226,30, 14 

INE#O, 73 INK#1,O: INE#2, 7: BORDER#HO, 1,5: paper#0, S: PAPERS1,7: 

PAPER#2, O 

OPEN#S, SCR _462X14a29X242: PAPER#S, 7: INK#5, 4: BORDER#S, 1,7 

OPEN#8, SCR _S12xX256a0X0: PAPERS, 7: INK#S, O: CLS48 

OPEN#9, SCR_1O8X20a378X219: FAPER#9, S: INES9, Or CGIZE4H9,0,0 

OPEN#10, SCR 461X14a29X1: PAFERW10,7: INK#10, 4: BORDER#10, 1,7 

OPENS11,SCR 148X190a35X43:FAPERHS11,7: INK#11,0 


DPENS12,S85CR _ 148X190al 49X43: PAPER#I2, 73 IMKH12,0 
OFENS13,SCR 148X190a2623X43:FOPFERSBS1Z,7: INK#1S,0 

OPEN#14, SCR 113X170a372XA43:PAPFERS14,7: INEHS14,0 

END DEFine fenetres 

DEFine PROcedure screen 

DIM dir$(76, 15): DELETE typet&drvéks FILE. DiRectory" 

AT 1,14: 0FEN_ NEW #6, typetidrv$h" FILE.DI Rectory" 

DIR #6, typetkdrvék" "ss CLOSERS 

OFEN IN #7, typetidrv$i" FILE.DI Rectory": FOR c=0 TO 76 
IF EOF (#7) THEN EXIT c 

INPUT #7,dir#(c)sEND FOR c:CLOSE #7:c=c~1 

PRINT dir$(0),,++!''dir$(1) 

CLSS11:CLSH12: CLSH132:CLS414 

FOR ml TO 18+n:FRINT#11, "C"; CHRE (n+48) bs PRINT#HLI1, "I" 
dirt (n+) 

FOR n=20+n TO 18-n:PRINTHI2,"L":iCHR$(GYr*48) ':PRINT#12, "1" 
dir$(n+1) 

FOR n=39+n TO 18+n:PRINT413, "C"; CHRE (+48) !'sPRINT#13, "3" 
dir$(n+1) 

FOR n=S8+n TO i6t*n:PRINTHI4,"L":i CHRE (n+48) I PRINTRI4,"J" 
dirt (n+) 

END DEFine screen 
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LOTTERY RANDOM NUMBER FICKER 
Butch Weinberg 


100 
110 
120 
130 


140 


display 

DEFine PROCedure display 

MODE 4 

OPEN #1, scr 475x79a3x0: OPENSZ,con, 475x75aZ2x75: 
OPENS, scr 4759x99a3x150 

PAPER 41,7: INK 41,2: PAPER 42,7: INK #2,0: PAPER #3, 4: 

INK #2,2 

BORDER #1,4,12:BORDER #2,4,18:BORDER #3,2,20: CLS Hi: 

CLS #2: CLS #3: CLS #0: 

CSIZE #1,1,1: PRINT #1\\ TO 123 "LOTTERY RANDOM NUMBER 
PICKER"X TO 15; "Hy Butch July 1988": main 

END DEF ine 

DEFine FROCedure main 

CSIZE 92,1,1: CLS #2: INFUT #2; TO 43"How many numbers? " 

\ TO 4;"3edaily, 4=FICK-4, 6=LOTTO, etc “sno: FOR i-i TO 
100: NEXT i 

CLS #2: INFUT #25 TO 43 "What is the top number?"\ TO 43n 
CLS#2: INFUT#2; TO 4;"Do you want zero's? "X TO 43" Y ar N" 
30%: IF o$z-"y" THEN o-O: ELSE o=1: END IF 

CLS #2: INPUT #23; TO 4;"Do you want a hard copre? "sH$ 

IF o$--"y" THEM zero$=" With zero’s ": ELSE zerot=" without 
zero’s ": END IF: IF H$--"y" THEN prit=" with a printout ': 
ELSE prié=" with no printout " 

CLS #2: PRINT 42; TO 4;"You have "ino" numbers to "en TO 
4izero$;z" and "spri 

IF nozs4 THEN num ELSE numb END IF: END DEFine 


p 


Ec 


260 
270 
zoo 
290 
RO 
310 
DO 
330 
240 
380 
X60 
370 
zgo 
390 


4003 
410 
420 
4.30 
440 
450 
460 


DEFine FROCedure num 

a=RND io TO n) 

a=INT Cad 

bzRNMD(O TO nm) 

b=INT ib) 

czRND(Oo TO n) 

CSINTic) 

d=RND (o TO n) 

d=INT í) 

e=END to TO n) 

@= TNT (e) 

FfæKRNDIÐ TO n) 

TINTOT) 

sopr: IF Hé=="y" THEN printer: ELSE chose: END IF END 
DEFine 

DEFine PROCedure numb 

a=ENDío TO n)sazINT(a) 
bæRNDIUÐ TO m)sb=INT íb) 

IF b=a THEN GO TO 420: END IF 
c=RNDio TO n)szcesINT(C 

IF cb ii ca THEN GO TO 440: END IF 
d=RND (o TO 


Cs 
"Yr en gog ve Arie, 


G0 TO 420: END IF 


440 


430 
C 460 
470 
480 
490 
500 
310 
320 
So 


240 
330 


360 
370 
380 


390 
600 
610 
C 620 
Zo 
640 
630 


660 


670 
680 
690 
700 


710 


720 
7.30 
740 
750 
760 
770 
780 
GH 790 
Soo 
810 
820 
830 
840 


S30 


ccRNDGO TO m)se=INTic) 
TF c=b ss: cca THEN GO TO 440: END IF 
d=RND(o TO m):ed=INT id) 


IF desc ir deb ss d=a THEN GO TO 460: END IF 


ezRNDGO TO nose-INT(e) 


IF exd s: exc s: e=b ir exa THEN GO TO 480: END IF 


f=RND(o TO nos: f=INT F) 


IF fce 22 fed 232 f=c a: f=b ir f=a THEN GO TO 500: END IF 


sort 


scpr : IF Ht=="y" THEM printer: ELSE chose: END IF : END 


DEFine 
DEFine FROCedure scpr 


IF no=3 THEN INK #3,0: CSIZE #3,2,1: PRINT #33" "sas", "rba 


"ici END IF 


IF no=4 THEN INK #3,0: CSIZE #3,2,1: PRINT #33" "zag", "3b; 


ees". tedes END IF 


IF nos5 THEN INK #3,0: CSIZE #3,2,1: PRINT #33" "sq(105"," 


$4022 3","$q0OD) sg", "sq(4o3","28q05)s END IF 


IF no=6 THEN INE 43,0: CSIZE 42,2,1: PRINT #32" "sq(Dg"," 
qa 5", "504005 ","5q(4) 5", "39 (5)3","90906)1 END IF 


END DEFine 

DEFine FROCedure printer 

OPEN $3, seri 

PRINT #55 CHRS (27); "NU LY CHRS (27) 5 "E" 
If nozz THEM FRINT #5 
If nos4 THEN PRINT #5 
lf nos3 THEN PRINT #5 
".UsqOD: END IF 


AB AR ER 


" "saj","3b3","sct END IF 
it "yag", " gbg", "cg", "gds END IF 
"OoU39€123 a "gg 223", "eqs p", "300205 


If nos6 THEN PRINT 455; * "sq(1)3","$4(2) 3 ","s$QqCS) 4$", "76400403 


*,"sq(S)e","sq(6):s END IF 

PRINT #53 CHRS(27)3 "W's Os CHRS (27) 3 "F" 
chose: END DEFine 

DEFine FROCedure chose 


CLS #2: INFUT #23 "Would you like another set?7"X"Y or N 


then ENTER "s: MORES 


IF MORES=="y" THEN RUN: ELSE PRINT S5; CHR$(12)52 STOP: 
END IF 

END DEFine 

DEFine FRüCedure sort 

DIM gino) 


qilsa: gD) sb: qc: q(4)=d: q(S)se: 
FOR rzi TO (no) 

FOR t=1 TO (nod—-r 

IF qíb)-gqit+l): sorted: END IF 
NEXT t: NEXT r 

NEXT FOR ts END FOR rs RETurn 
END DEFine 

DEFine FROCedure sorted 

usq it}: veq(t+i> 

q(t+ll)=u:r g(t) =v 

END DEF ine 


QL COLOR COMPOSITE MONITOR JACK 
Al Boehm 
Reprinted fram BoSTUG Newsletter 


The QL computer does not have a jack for composite color 
monitors. However, the composite color signal is easy to get at 
inside the QL. (See Figure 1) N 


Unscrew the eight screws on the bottom of the QL. Be cares 
to leave the two screws that hold the microdrives (and are 
located right under them) alone. 


Carefully swing back the top of the case and solidly prop the 
keyboard in position. It is not necessary to disconnect the 
wires between the top and the bottom of the case, but be 
carefull not to put any strain on the wires or the membrane 
tail. 


Use a coax cable (audio coax is just fine) to carry the signal 
to the monitor. Solder the coax ground to the braided ground 
wire on the top of the UM1622. Solder the coax signal wire to 
the signal lead of the UMiI622. 


In order to disconnect the cable, I installed an RCA phono 
jack on the back of the QL right above the TV channel selector 
switch. (Editor's note: Remember that on an RCA phono jack, the 
center pin carries the composite color signal and the outer skin 
connects to the ground or return signal.) 


This composite color signal has had good results on several 
different monitors. On some of them, not all all of the picture 
is displayed. However, in all cases more is displayed than with 
a TV and the resolution is much better. 


I use a composite color monitor with Quill in 80 column mode 
with no trouble reading and just a little bit of columns 1 and 
30 displayed off the screen. 


ON QL DISK INTERFACES 
Al Feng 


Year end is a good time to tally up your computing costs (as 
well as, other household expenses!). Are you still running a 
Plain 128K GL and saving a lot of hard copies or FILENAME, docs? 
Do you have to buy more microcarts every month? Should yOu add a 
disk drive system and/or memory? 


Extra memory is like having a NLQ printer. If you gotten by 
without extra memory till now, you can probably live without it 


for a little longer. 


The matter of (not) employing disk drives is a more day-to- 
day matter, however. If you still use microcarts, then you 
should be backing up ALL your programs and files; and, that can 
result in a lot of microcarts. I'm not going to give you the 
dollars and cents of kilobytes per medium; but, I will say that 
I STILL DISCARD at least one microcart evry other month due to 
tape failure! 


There are three-and-a-half disk interfaces which you can buy 
for your QL. The CUMANA I/F ($130), the SANDY Q-BOARD w/Ok 
($170), the TRUMF CARD w/768k ($300), and its half=brotig, )the 
ACE CARD w/SS6K ($220), 


The CUMANA interface (at least the one I have) is about as 
barren of features as the Chicago City Council is of "virtuous" 
men. It does get the job done, and unlike the others, it can 
access up to four drives (if you have them). 


The SNADY GQ-BOARD with 512K set the stage for the TRUMP CARD. 
Sharp's doesn't seem to carry this, and only lists the SUB with 
Ok of RAM. If you don't want memory expansion, but want a Super 
TOOLKIT II, then this might be a good choice (I haven't seen one 
of these, but apparently there are NO sockets for memory chips 
on this board or the necessary logic. DUMB. They could probably 
still sell a lot of these if they were socketed.). 


The reason to get the ACE CARD is if you don't want any memory 
expansion, but you want to run a program which requires more 
than the standard QL,s 128K (e.g., TurboQUILL). As with its big 
brother, it comes with features galore. However, if you're going 
to tandem it with an existing 512K expansion, do a friend in 
your User Group a favor and buy a TRUMP CARD and sell your 512K 
for the price difference (ask Butch or Leo about the virtures of 
the TRUMP CARD). 


All right, you say you're going to rush right out with your 
hard earned money and buy an interface, a power supply and a 
(pair of) disk drive(s). Plan on spending between $200 and $700. 
It's only money; and, it's easier to replace than either data or 
programs. 


Which is better/best? I purchased my disk interface and extra 
memory a month before the TRUMP CARD was announced, and I used 
to regret my timing. I have to tell you that I was VERY 
SURPRISED to learn that neither the TRUMP/ACE CARDS nor the 
SANDY G-BOARD access more than two drives. I do mind having a 
lot of "stuff" hanging off my GL; but, I'd rather live with the 
"SINCLAIR LOOK" than be limited to only a pair of disk drives. 
Of course, you'll have to assess your own needs. 


